unit fmChoose;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, Buttons, jpeg, ExtCtrls, JvExExtCtrls, JvImage;

type
  TfChoose = class(TForm)
    Label1: TLabel;
    btnCreateFile: TBitBtn;
    btnConvertFile: TBitBtn;
    btnExit: TBitBtn;
    JvImage1: TJvImage;
    JvImage2: TJvImage;
    procedure btnExitClick(Sender: TObject);
    procedure btnCreateFileClick(Sender: TObject);
    procedure btnConvertFileClick(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  fChoose: TfChoose;

implementation

{$R *.dfm}

uses fMain, fmConvertOptions;

procedure TfChoose.btnExitClick(Sender: TObject);
begin
  Close;
end;

procedure TfChoose.btnCreateFileClick(Sender: TObject);
begin
  fmMain.ShowModal;
end;

procedure TfChoose.btnConvertFileClick(Sender: TObject);
begin
  fConvertOptions.ShowModal;
end;

end.
